100 REM* SELECT ON BOOT
110 REM* FIX FOR PG. 447 OF C128 PRG. GUIDE
120 REM* TRACK 1 SECTOR 0 MUST NOT BE ALLOCATED
140 FOR I=1 TO 100
150 READ BYT: CS=CS+BYT: W$=W$+CHR$(BYT)
160 NEXT
170 IF CS<>6965 THEN PRINT "DATA ERROR": END
180 OPEN 15,8,15,"I0"
190 OPEN 8,8,8,"#"
200 PRINT#15,"B-P";8;0
210 PRINT#8,W$
220 PRINT#15,"U2";8;0;1;0
230 PRINT#15,"B-A";0;1;0
240 PRINT DS$: CLOSE 8: CLOSE 15
250 DATA  67,  66,  77,   0,   0,   0,   0,   0
260 DATA   0,  32, 125, 255,  13,  83,  69,  76
270 DATA  69,  67,  84,  32,  77,  79,  68,  69
280 DATA  58,  13,  13,  32,  49,  46,  32,  67
290 DATA  54,  52,  32,  32,  66,  65,  83,  73
300 DATA  67,  13,  32,  50,  46,  32,  67,  49
310 DATA  50,  56,  32,  66,  65,  83,  73,  67
320 DATA  13,  32,  51,  46,  32,  67,  49,  50
330 DATA  56,  32,  77,  79,  78,  73,  84,  79
340 DATA  82,  13,  13,   0,  32, 228, 255, 201
350 DATA  49, 208,   3,  76,  77, 255, 201,  50
360 DATA 208,   3,  76,   3,  64, 201,  51, 208
370 DATA 235,  76,   0, 176